home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / mac / link.dxr / 00021_É{ÉäÉÖÅ[ÉÄÉ{É^Éì.ls < prev    next >
Encoding:
Text File  |  2003-02-28  |  570 b   |  38 lines
  1. global cdvoume
  2.  
  3. on mouseDown me
  4.   mynumber = me.spriteNum
  5.   case mynumber of
  6.     13:
  7.       cdvoume = cdvoume + 1
  8.     14:
  9.       cdvoume = cdvoume - 1
  10.   end case
  11.   if cdvoume > 13 then
  12.     cdvoume = 13
  13.   else
  14.     if cdvoume < 0 then
  15.       cdvoume = 0
  16.     end if
  17.   end if
  18.   set the volume of sound 1 to cdvoume * 19
  19.   i = 15
  20.   repeat while i <= 27
  21.     sprite(i).visible = 1
  22.     i = 1 + i
  23.   end repeat
  24.   i = 15 + cdvoume
  25.   repeat while i <= 27
  26.     sprite(i).visible = 0
  27.     i = 1 + i
  28.   end repeat
  29. end
  30.  
  31. on mouseEnter me
  32.   cursor([1, 2])
  33. end
  34.  
  35. on mouseLeave me
  36.   cursor(0)
  37. end
  38.